home *** CD-ROM | disk | FTP | other *** search
/ Let's Discover Tennessee! / Let's Discover Tennessee!.iso / pc / FILES / TIME.dxr / 00507_mainTimelineScript.ls < prev    next >
Encoding:
Text File  |  2001-06-27  |  835 b   |  37 lines
  1. global frameSpeed, direction, currentCursor
  2.  
  3. on exitFrame me
  4.   if direction = "right" then
  5.     if the frameLabel <> "Last" then
  6.       go(the frame + frameSpeed)
  7.       if soundBusy(3) = 0 then
  8.         sound(3).play(member("VisorHum"))
  9.       end if
  10.     end if
  11.   else
  12.     if direction = "left" then
  13.       if the frameLabel <> "Start" then
  14.         go(the frame - frameSpeed)
  15.         if soundBusy(3) = 0 then
  16.           sound(3).play(member("VisorHum"))
  17.         end if
  18.       else
  19.         go("First")
  20.       end if
  21.     end if
  22.   end if
  23.   if (direction <> "left") or (direction <> "right") then
  24.     go(the frame)
  25.   end if
  26. end
  27.  
  28. on prepareFrame me
  29.   if currentCursor <> 1 then
  30.     cursor([member("AlienHand"), member("AlienHand Mask")])
  31.     currentCursor = 1
  32.   end if
  33.   if soundBusy(4) then
  34.     sound(4).volume = sound(4).volume - 10
  35.   end if
  36. end
  37.